home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / Hypersoft Version 2.cpt / Hypersoft Version 2 / Software Librarian / background_2686.txt < prev    next >
Text File  |  1987-10-06  |  7KB  |  296 lines
  1. -- background: 2686 from stack: in
  2. -- bmap block id: 2231
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Software Librarian
  6. ----- HyperTalk script -----
  7. on newCard
  8.   get field "diskNumber" of previous card
  9.   add one to it
  10.   put it into field "diskNumber"
  11. end newCard
  12.  
  13. on openBackground
  14.   push recent card
  15. end openBackground
  16.  
  17.  
  18. -- part 5 (button)
  19. -- low flags: 00
  20. -- high flags: 0004
  21. -- rect: left=447 top=299 right=339 bottom=498
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 32670 / 32670
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: 
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   show all cards
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 7 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=368 top=264 right=289 bottom=395
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 1014 / 1014
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Prev
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   visual effect wipe right
  52.   go to previous card
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 8 (button)
  58. -- low flags: 00
  59. -- high flags: 0000
  60. -- rect: left=396 top=264 right=289 bottom=423
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 1013 / 1013
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Next
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   visual effect wipe left
  72.   go to next card
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 11 (button)
  78. -- low flags: 00
  79. -- high flags: 0004
  80. -- rect: left=360 top=300 right=338 bottom=405
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 20186 / 20186
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Sort Disks
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   if the name of this stack contains "stack ideas"
  92.   then
  93.   show card field 1  -- explain why not sort here
  94. else
  95.   answer "Sort all cards of this stack according to:" with "Name" or "Number" or "Cancel"
  96.   if it is "Name"
  97.   then sort by first word of first line of field "Label"
  98. else if it is "diskNumber"
  99. then sort by field "diskNumber"
  100. end if
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 12 (button)
  106. -- low flags: 00
  107. -- high flags: 0004
  108. -- rect: left=21 top=299 right=340 bottom=68
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 21700 / 21700
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: Home
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   visual effect iris open
  120.   go Home
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 13 (button)
  126. -- low flags: 00
  127. -- high flags: 0000
  128. -- rect: left=460 top=263 right=291 bottom=497
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 1012 / 1012
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Return
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   visual effect iris close
  140.   pop card
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 17 (button)
  146. -- low flags: 00
  147. -- high flags: 2004
  148. -- rect: left=277 top=300 right=338 bottom=325
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 21060 / 21060
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: Find
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   global key
  160.   ask "Enter name or word you're looking for:" with key
  161.   if it is not empty then
  162.     go to next card
  163.     find it
  164.     put it into key
  165.   end if
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 22 (field)
  171. -- low flags: 00
  172. -- high flags: 2007
  173. -- rect: left=307 top=75 right=250 bottom=472
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 0
  177. -- font id: 3
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: 
  182.  
  183.  
  184. -- part 24 (button)
  185. -- low flags: 00
  186. -- high flags: 2004
  187. -- rect: left=183 top=299 right=341 bottom=236
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 1006 / 1006
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: Quit
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   Talk"dew Huew reelee want2 kwit highpercard?",175,125
  199.   answer "Do You Really Want To Quit HyperCard?" with "Yes" or "No"
  200.   if it is "No" then exit mouseUp
  201.   visual dissolve
  202.   doMenu "Quit HyperCard"
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part 26 (button)
  208. -- low flags: 00
  209. -- high flags: 0004
  210. -- rect: left=101 top=299 right=339 bottom=154
  211. -- title width / last selected line: 65535
  212. -- icon id / first selected line: -6047 / 59489
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: Add to home
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   answer "Install Software button on Home card?" with "OK" or "Cancel"
  222.   if it is "Cancel" then
  223.     exit mouseUp
  224.   end if
  225.   set lockmessages to true
  226.   choose button tool
  227.   click at location of me
  228.   doMenu Copy Button
  229.   go home
  230.   doMenu Paste Button
  231.   set the name of button "add to home" to "Software"
  232.   set loc of button "Software" to 358,250
  233.   play harpsichord "ee c"
  234.   answer "Drag the Software button to the desired location"
  235.   wait until the mouse is down
  236.   set hilite of button "Software" to true
  237.   repeat until the mouse is up
  238.     set loc of button "Software" to the mouseLoc
  239.   end repeat
  240.   set hilite of button "Software" to false
  241.   set script of button "Software" to empty
  242.   set script of button "Software" to "on mouseUp" && return && "visual effect iris open" && return && "go to stack Software" && return && "end mouseUp"
  243.   choose browse tool
  244.   go back
  245.   play harpsichord "ee c"
  246.   set lockmessages to false
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 27 (field)
  252. -- low flags: 00
  253. -- high flags: 0004
  254. -- rect: left=288 top=29 right=49 bottom=353
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 0
  258. -- font id: 3
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: time
  263.  
  264.  
  265. -- part 28 (field)
  266. -- low flags: 00
  267. -- high flags: 0004
  268. -- rect: left=426 top=29 right=49 bottom=494
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 0
  272. -- font id: 3
  273. -- text size: 10
  274. -- style flags: 16384
  275. -- line height: 13
  276. -- part name: date
  277.  
  278.  
  279. -- part 29 (button)
  280. -- low flags: 00
  281. -- high flags: 0003
  282. -- rect: left=113 top=25 right=47 bottom=177
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 0 / 0
  285. -- text alignment: 1
  286. -- font id: 0
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: New Button
  291. ----- HyperTalk script -----
  292. on mouseUp
  293.   Talk"wellcome to the Software Lyybrarian",175,120
  294. end mouseUp
  295.  
  296.